home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / m / math_vision / mathvisionv2.1b.dms / in.adf / HookExamples / Parametric / Flower.f < prev   
Unknown  |  1992-02-14  |  1.0 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert Freeze Frozen Compressed File (archive/freeze) ext Supported
10% dexvert IFF Interleaved Bitmap Image (image/iffILBM) magic Supported
100% file IFF data default (weak)
99% file data default
96% TrID MathVISION Formula (v2.0) default
1% TrID IFF InterLeaved BitMap default (weak)
1% TrID Generic IFF container default (weak)
100% dexmagic Generic IFF FORM file ILBM default (weak)
100% siegfried x-fmt/157 Interchange File default (weak)
100% xdgMime image/x-ilbm default


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 4f 52 4d 00 00 04 14 | 49 4c 42 4d 43 48 52 53 |FORM....|ILBMCHRS|
|00000010| 00 00 04 08 58 6d 69 6e | 20 2d 33 2e 30 30 30 30 |....Xmin| -3.0000|
|00000020| 30 30 0a 58 6d 61 78 20 | 33 2e 30 30 30 30 30 30 |00.Xmax |3.000000|
|00000030| 0a 59 6d 69 6e 20 2d 32 | 2e 30 30 30 30 30 30 0a |.Ymin -2|.000000.|
|00000040| 59 6d 61 78 20 32 2e 30 | 30 30 30 30 30 0a 43 6f |Ymax 2.0|00000.Co|
|00000050| 6e 74 6f 75 72 41 6e 63 | 68 6f 72 20 30 0a 43 6f |ntourAnc|hor 0.Co|
|00000060| 6e 74 6f 75 72 57 69 64 | 74 68 20 30 0a 43 6c 69 |ntourWid|th 0.Cli|
|00000070| 70 48 69 67 68 20 2d 32 | 2e 30 30 30 30 30 30 0a |pHigh -2|.000000.|
|00000080| 43 6c 69 70 4c 6f 77 20 | 2d 32 2e 30 30 30 30 30 |ClipLow |-2.00000|
|00000090| 30 0a 46 30 20 30 3d 63 | 61 73 65 28 63 6f 75 6e |0.F0 0=c|ase(coun|
|000000a0| 74 3d 30 2c 66 61 2c 20 | 74 3c 32 2a 70 69 2c 66 |t=0,fa, |t<2*pi,f|
|000000b0| 62 2c 20 31 20 29 20 20 | 20 20 20 20 20 20 20 22 |b, 1 )  |       "|
|000000c0| 43 6f 6e 74 72 6f 6c 20 | 69 74 65 72 61 74 69 6f |Control |iteratio|
|000000d0| 6e 0a 46 41 20 6e 75 6c | 6c 28 66 62 2c 20 73 65 |n.FA nul|l(fb, se|
|000000e0| 74 28 74 2c 30 29 2c 73 | 65 74 28 69 2c 2e 30 31 |t(t,0),s|et(i,.01|
|000000f0| 29 2c 73 65 74 28 6e 2c | 36 29 2c 73 65 74 28 6d |),set(n,|6),set(m|
|00000100| 2c 30 29 20 29 20 20 20 | 22 49 6e 69 74 69 61 6c |,0) )   |"Initial|
|00000110| 20 76 61 6c 75 65 73 0a | 46 42 20 6e 75 6c 6c 28 | values.|FB null(|
|00000120| 20 66 63 28 74 2b 69 29 | 2c 20 66 69 28 66 64 2a | fc(t+i)|, fi(fd*|
|00000130| 73 69 6e 28 74 29 2c 66 | 64 2a 63 6f 73 28 74 29 |sin(t),f|d*cos(t)|
|00000140| 20 29 29 20 20 22 43 6f | 6d 70 75 74 65 20 6e 65 | ))  "Co|mpute ne|
|00000150| 77 20 76 61 6c 75 65 73 | 0a 46 43 20 6e 75 6c 6c |w values|.FC null|
|00000160| 28 20 73 65 74 28 74 2c | 61 31 29 20 29 20 20 20 |( set(t,|a1) )   |
|00000170| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000180| 20 20 20 20 20 20 22 53 | 65 74 20 6e 65 77 20 76 |      "S|et new v|
|00000190| 61 6c 75 65 73 0a 46 44 | 20 63 6f 73 28 6e 2a 74 |alues.FD| cos(n*t|
|000001a0| 29 2d 6d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |)-m     |        |
|000001b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001c0| 20 20 20 22 55 73 65 20 | 70 61 72 61 6d 65 74 65 |   "Use |paramete|
|000001d0| 72 73 0a 46 45 20 0a 46 | 46 20 0a 46 47 20 0a 46 |rs.FE .F|F .FG .F|
|000001e0| 48 20 0a 46 49 20 6e 75 | 6c 6c 28 20 64 72 61 77 |H .FI nu|ll( draw|
|000001f0| 28 61 31 2c 61 32 2c 69 | 66 28 63 6f 75 6e 74 2c |(a1,a2,i|f(count,|
|00000200| 20 31 2c 20 30 29 29 20 | 29 20 20 20 20 20 20 20 | 1, 0)) |)       |
|00000210| 20 22 64 69 73 70 6c 61 | 79 0a 43 6f 6d 6d 65 6e | "displa|y.Commen|
|00000220| 74 31 20 46 6c 6f 77 65 | 72 20 32 34 2d 41 70 72 |t1 Flowe|r 24-Apr|
|00000230| 2d 39 30 20 64 6f 75 67 | 20 48 6f 75 63 6b 0a 43 |-90 doug| Houck.C|
|00000240| 6f 6d 6d 65 6e 74 32 20 | 56 61 72 79 20 4e 20 61 |omment2 |Vary N a|
|00000250| 6e 64 20 4d 0a 43 6f 6d | 6d 65 6e 74 33 20 54 3d |nd M.Com|ment3 T=|
|00000260| 61 6e 67 6c 65 2c 20 49 | 3d 49 6e 63 72 65 6d 65 |angle, I|=Increme|
|00000270| 6e 74 20 66 6f 72 20 61 | 6e 67 6c 65 2c 20 4e 3d |nt for a|ngle, N=|
|00000280| 27 4e 75 6d 62 65 72 27 | 20 6f 66 20 70 65 74 61 |'Number'| of peta|
|00000290| 6c 73 2c 20 4d 3d 4d 69 | 64 64 6c 65 20 6f 66 66 |ls, M=Mi|ddle off|
|000002a0| 73 65 74 0a 4f 76 65 72 | 70 6c 6f 74 20 46 0a 55 |set.Over|plot F.U|
|000002b0| 73 65 42 61 63 6b 67 72 | 6f 75 6e 64 20 46 0a 4d |seBackgr|ound F.M|
|000002c0| 6f 64 75 6c 6f 20 31 36 | 0a 43 6f 6d 70 6c 65 74 |odulo 16|.Complet|
|000002d0| 65 20 30 0a 43 6f 6e 74 | 6f 75 72 53 61 6d 70 6c |e 0.Cont|ourSampl|
|000002e0| 65 44 65 6c 74 61 20 30 | 0a 43 6f 6e 74 6f 75 72 |eDelta 0|.Contour|
|000002f0| 53 63 61 6c 69 6e 67 20 | 46 0a 43 6f 6e 74 6f 75 |Scaling |F.Contou|
|00000300| 72 4e 6f 69 73 79 20 54 | 0a 43 6f 6e 74 6f 75 72 |rNoisy T|.Contour|
|00000310| 43 6c 69 70 70 69 6e 67 | 20 46 0a 42 6f 78 48 65 |Clipping| F.BoxHe|
|00000320| 69 67 68 74 20 30 0a 42 | 6f 78 4d 61 67 6e 69 66 |ight 0.B|oxMagnif|
|00000330| 69 63 61 74 69 6f 6e 20 | 30 0a 58 76 69 65 77 70 |ication |0.Xviewp|
|00000340| 6f 69 6e 74 20 30 0a 5a | 76 69 65 77 70 6f 69 6e |oint 0.Z|viewpoin|
|00000350| 74 20 30 0a 50 65 72 73 | 70 65 63 74 69 76 65 53 |t 0.Pers|pectiveS|
|00000360| 61 6d 70 6c 65 44 65 6c | 74 61 20 30 0a 50 65 72 |ampleDel|ta 0.Per|
|00000370| 73 70 65 63 74 69 76 65 | 20 54 0a 48 69 64 64 65 |spective| T.Hidde|
|00000380| 6e 5f 4c 69 6e 65 73 20 | 54 0a 43 6c 69 70 54 6f |n_Lines |T.ClipTo|
|00000390| 42 6f 78 20 54 0a 44 72 | 61 77 42 6f 78 20 54 0a |Box T.Dr|awBox T.|
|000003a0| 43 6f 6c 6f 72 54 6f 70 | 20 54 0a 43 6f 6c 6f 72 |ColorTop| T.Color|
|000003b0| 42 6f 74 74 6f 6d 20 46 | 0a 53 69 6d 70 6c 65 53 |Bottom F|.SimpleS|
|000003c0| 61 6d 70 6c 65 44 65 6c | 74 61 20 30 0a 53 69 6d |ampleDel|ta 0.Sim|
|000003d0| 70 6c 65 4e 6f 69 73 79 | 20 54 0a 53 69 6d 70 6c |pleNoisy| T.Simpl|
|000003e0| 65 47 72 61 64 69 65 6e | 74 31 20 46 0a 53 69 6d |eGradien|t1 F.Sim|
|000003f0| 70 6c 65 47 72 61 64 69 | 65 6e 74 32 20 46 0a 53 |pleGradi|ent2 F.S|
|00000400| 69 6d 70 6c 65 50 65 6e | 20 32 0a 50 6c 6f 74 4d |implePen| 2.PlotM|
|00000410| 6f 64 65 20 43 6f 6e 74 | 6f 75 72 0a             |ode Cont|our.    |
+--------+-------------------------+-------------------------+--------+--------+